q=[1 4 5 7 9 7];
figure;title(pf(q))
